00010 



XLIST 





MilWl^^r!.^ .. ,.. 



*wk 



. = ;.* . 
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SERVICE ROUTINE 


00030 


00040 


00050 


00060 


00070 


00080 


00090 


00100 


00110 


00120 



EXTERNAL PTPCHN, PTPSAV, ADVBFE, ITMCT1, SETIOD, SETBYT, IOSET, CKS12 
EXTERNAL ILLINP, OUT, HAITI, PTPRET, PTPCHL , PIOMOD 
INTERNAL PTPINT 

;PTP DEVICE DATA BLOCK LINKAGE 

EXTERNAL PTPDB, PTPDAT , PTPCHR, PTP I OS, PTPSER, PTPMOD, PTPBUF 
EXTERNAL PTPPTR, PTPADR, PTPCTR, PTPCNT, PTPCHA, PTPSIO 
ENTRY PTPDSP 
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PUNCH 



000000 
000001 
000002 
000003 



254000 000004 
254000 000007 
254000 000024 
254000 000000 



SERVICE ROUTINE 


PAGE 4 


00130 






00140 






00150 


, PARAMETER ASSIGNMENTS 


00160 






00170 






00180 


PTP 


CONTROL REGISTER 


00190 




PTPDON=10 


00200 






00210 


format CONTROL 


00220 




PTPFDN=200 


00230 






00240 


SPECIAL 10 STATUS WORD AS 


00250 




PTPFED=200000 


00260 




PTPSSQ=40000 


00270 




PTPEOL=20000 


00280 




PTPSEO=10000 


00290 




PTPBIN=4000 


00300 




PTPIB=2000 


00310 






00320 


SPECIAL ASCII CHARACTERS 


00330 




NULL=200 


00340 




RUB0UT=377 


00350 




H0RTAB=211 


00360 




VERTAB=213 


00370 




F0RMFD=214 


00380 






00390 


REPEAT 


,< 


00400 


,PTP DATA BLOCK 


00410 






00420 


PTPDAT: 


SIXBIT "PTP" 


00430 


PTPCHR: 


41 


00440 


PTP I OS: 





00450 


PTPSER: 


EXP PTPDSP 


00460 


PTPMOD: 


XWD 1000+PROG, 14403 


00470 







00480 


PTPBUF: 





00490 


PTPPTR: 





00500 


PTPADR: 


XWD PROG.0 


00510 


ptpctr: 





00520 


ptpcnt: 





00530 


ptpcha: 





00540 


PTPSIO: 





00550 


> 




00560 






00570 


,PTP SERVICE DISPATCH TABLE 


00580 






M 00590 


PTPDSP: 


JRST PTPREL 


" 00600 




JRST PTPCLS 


I' 00610 




JRST PTPOUT 


t 00620 




JRST ILLINP 



ASSIGNMENTS 



CHECKSUM BINARY 
»• IMAGE BINARY 



RELEASE 

;close 
;output 

; INPUT 
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000004 
000005 
PS00006 



000007 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 



710200 
513000 
263140 



260140 
260140 
200000 
661000 
660000 
202000 
201040 
202040 
201040 
542040 
201040 
710201 



000000 

000052' 

000000 



000000 

000000 

000000 

600001 

010000 

000011' 

000200 

000000 

000010 

000052' 

000000 

00001PI 



000023 254000 000010 



00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 



PTPINI 
PTPREL 



PTPCLS: 



INTERNAL PTPINI 

CONO PTP,0 
HLLZS PTPINT 
POPJ PDP, 



;CLEAR CONSO FLAG BITS 

;return 



PUSHJ PDP, OUT; OUTPUT REMAINING BUFFERS 

PUSHJ PDP.WAIT15 WAIT FOR IOACT=0. 

MOVE IOS,PTPIOSJ C( IOS):=C(PTPIOS) 

TLO IOS, IODISC+PTPFED+IOW; IODISC : = I OW : =PTPFED : =1 



IOACT:=l 
C(PTPIOS):=C( IOS) 

PTPCNT:=400 
;SET CONSO FLAG 



TRO ios.ioact; 

MOVEM IOS.PTPIOSJ 
MOVEI TAC200 
MOVEM tacptpcnt; 

MOVEI TAC.PTPDON 

HRRM TAC, PTPINT 

MOVEI TAC.PTPCHN; TAC:=PTPCHN,PI CHANNEL ASSIGNMENT 

CONO PTP,PTPOON(TAC>; DONE FLAG:=1, ASSIGN PI CHANN 

JRST WAIT1 JWAIT FOR IOACT=0. ALL BUFFERS FINISHED 
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00860 










00870 




000024 


623000 


000002 


00880 


PTPOUT: 


000025 


254000 


000036' 


00890 
00900 




000026 


660000 


010000 


00910 


PTPINi: 


000027 


621000 


400000 


00920 




000030 


202000 


000014' 


00930 




000031 


201040 


000010 


00940 




000032 


542040 


000052' 


00950 




000033 


201040 


000021' 


00960 




000034 


710201 


000010 


00970 




000035 


263140 


000000 


00980 
00990 




000036 


135040 


000000 


01000 


PTPIN2: 


000037 


661000 


200024 


01010 




000040 


621000 


006000 


01020 




000041 


306040 


000013 


01030 




000042 


661000 


002000 


01040 




000043 


306040 


000014 


01050 




000044 


661000 


004000 


01060 




000045 


201040 


000200 


01070 




000046 


202040 


000016' 


01080 




000047 


260140 


000000 


01090 




000050 


502040 


000000 


01100 
01110 




000051 


254000 


000026' 


01120 





TLZE IOS,IOBEG 
JRST PTPIN2 



;virgin device? 
;yes 



(IOBEG:=0) 



TRO IOS.IOaCT 

TLZ IOS.IODISC 

MOVEM IOS.PTPIOS 

MOVEI TACPTPDON 

HRRM TACPTPINT 

MOVEI TAC, PTPCHN 

CONO PTP,PTPDON (TAC) 

POPJ PDP, ;return 

LDB TAC.PIOMOD 

TLO IOS, IOFST+PTPFED+IO 

TLZ IOS.PTPBIN+PTPIB 



MOACT:=l 

;CLEAR DISCONNECT BIT 
;PTPIOS:=C( IOS) 
;SET CONSO FLAG BIT 



;done flag:*!, assign pi chan 



CAIN TAC, IB 
TLO IOS.PTPIB 
CAIN TACB 
TLO IOS.PTPBIN 
MOVEI TAC.PTPFDN 
MOVEM TAC.PTPCNT 
PUSHJ PDP.SETBYT 
HLLM TACPTPPTR 

JRST PTPINI 



J IOFST:=PTPFED:=IO:ri 

5CLEAR BINARY AND IMAGE BINAR 

BINARY? 



MMAGE 

;yes 

;mode=binary? 
;yes, ptpbin:=i 
;ptpcnt:=ptpfdn 

;SETBYT 

;PTPPTR0-5:=PTPPTR12-13:=0,PTPPTR6-Ii:= 
JSIZEJ PTPPTR14-17:=PR0G 
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000052 
000053 
000054 
000055 
000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
000067 
000070 
000071 
000072 

000073 
000074 
000075 
000076 
000077 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 
000112 

000113 
000114 
000115 
000116 
000117 
000120 



710340 
254000 
202000 
200000 
603000 
254000 
200000 
264000 
201300 
260140 
200000 
623000 
254000 
623000 
254000 
607000 
254000 

200040 
241040 
202040 
405040 
271040 
710140 
371000 
254000 
371000 
254000 
603000 
665000 
661000 
201040 
202040 
254000 

201040 
202040 
200260 
350000 
202240 
254000 



000010 

000052' 

000000 

000030' 

200000 

000151' 

000054' 

000000 

000000 

000000 

000055' 

400000 

000167' 

000004 

000175' 

006000 

000121' 

000000 

000006 

000073' 

000077 

000200 

000001 

000046' 

000227' 

000000 

000113' 

002000 

400000 

600000 

000010 

000101' 

000227' 

000005 

000111' 

000050 ' 

000115' 

000075' 

000227' 



01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 



.PUNCH INTERRUPT SERVICE 



PTPINT: 



PTPB0: 



PTPBi: 



CONSO PTP.PTPDONJ 

JRST PTPINT 

MOVEM IOS.PTPSIO 

MOVE IOS.PTPIOS 

TLNE IOS.PTPFED 

JRST PTPS2 

MOVE IOS.PTPSIO 

JSR PTPSAV 

MOVEI DEVDAT.PTPDAT 

PUSHJ PDP, IOSET 

MOVE IOS.PTPIOS 

TLZE IOS.IODISC 

JRST PTPADV 

TLZE IOS.IOFST 

JRST PTP9 

TLNN IOS.PTPBIN+PTPIB 

JRST PTP3 ;NO 



DONE FLAG=1? 

;NO. IF PTP IS IN FLAG LIST GO TO ERROR 

;PTPSIO:=C(IOS) SAVE IOS 

; ios:=c(PTPios) 

;feed request? (ptpfed=1?> 

;yes 

;restore ios 

;save acs and establish pdp 

;prog:=(jbtadr 18-35). item:=c(devctr) 

JDISCONNECT? (IODISC=l?) 

• YES 

!lOFST=l? IOFST:=0 

;yes 

;binary punch mode? 



MOVE TAC.PTPCHA5 

ROT TAC.6 

MOVEM TAC.PTPCHA 

ANDI TAC77; 

ADDI TAC200 

DATAO PTP.TAC; 

SOSL PTPCNT5 
PTPXITJ 
PTPCTRJ 
PTPB1J 
IOS.PTPIB 
IOS, IODISC 



BINARY OUTPUT BYTE SIZE=36 



TAC!=XX, SIXBIT SUB-BYTE 



=C(PTPCNT)-1 



JRST 

SOSL 

JRST 

TLNE 

TLOA 

TLO IOS, IODISC+PTPFED 

MOVEI TAC.10 

MOVEM TAC.PTPCNT; PTPCNT 

JRST PTPXIT 



PUNCH 2XX 

C(PTPCNT) 

NO 

C(PTPCTR) :=C(PTPCTR)-1 

NO 

MMAGE BINARY? 

;YES, SUPPRESS TAPE FEED. 

MODISC:=PTPFED:=l 



WORD DONE? 



ITEM COUNT < 



:10 



MOVEI TAC.5, 
MOVEM TAC.PTPCNT 

MOVE dat,<»ptpptr; 
aos ptpptr; 
movem dat.ptpcha 
jrst ptpxit 



;PTPCNT:=5 

PTPCHA!=OUTPUT DATA WORD 
PTPPTR:=C(PTPPTR)+1. ADVANCE ITEM POIN 
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01600 

PTP3: DATAO PTP.PTPCHA; PUNCH CHARACTER 

TRNE I0S,14; IS MODE AN ALPHA MOOE 
JRST PTP1! NO 

MOVE DAT.PTPCHA 

CAIE DAT,HORTABJ HORIZONTAL OR VERTICAL TAB? 
CAIN DAT.VERTAB 
JRST PTPPl; YES 

CAIE DAT, FORMED; FORM FEED? 
JRST PTP1J NO 

TLO ios.ptpfeo+ptpeol; PTPFED:=PTPEOL:=l 
MOVEI DAT, 20 

MOVEM DAT.PTPCNT; PTPCNT!=20 
000135 254000 000227' 01730 JRST PTPXIT 









01600 


000121 


710140 


000117' 


01610 


000122 


602000 


000014 


01620 


000123 


254000 


000136' 


01630 


000124 


200240 


000121' 


01640 


000125 


302240 


000211 


01650 


000126 


306240 


000213 


01660 


000127 


254000 


000216' 


01670 


000130 


302240 


000214 


01680 


000131 


254000 


000136' 


01690 


000132 


661000 


220000 


01700 


000133 


201240 


000020 


01710 


000134 


202240 


000114' 


01720 
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000136 375000 000103' 

000137 254000 000160' 

000140 134240 000116' 

000141 135040 000036' 

000142 306040 000010 

000143 254000 000147' 

000144 435240 000200 

000145 306240 000200 

000146 254000 000136' 

000147 202240 000124' 

000150 254000 000227' 

000151 402000 000147' 

000152 710140 000151' 

000153 377000 000134' 

000154 621000 200000 

000155 202000 000064' 

000156 200000 000060' 

000157 254520 000000 



000160 661000 400000 

000161 254000 000227' 

000162 550100 000000 

000163 260140 000000 

000164 270100 000162' 

000165 502060 000002 

000166 254000 000113' 



01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 



PTP1 



PTP6: 



PTPS2: 



PTP5: 



PTPBN 



SOSGE ptpctr; 
JRST PTP5 
LDBI DAT,PTPPTR 
LDB TACPIOMOD 
CAIN TAC, T J 
JRST PTP6 
IORI DAT, 200; 
CAIN DAT, NULL? 
JRST ptpi; 

MOVEM dat.ptpcha; 
jrst ptpxit 

clearm ptpcha; 
datao ptp, ptpcha 
sosg ptpcnt; 
tlz ios.ptpeed; 
movem ios.ptpios; 
move ios.ptpsio 
jen 3ptpchl 



tlo ios.iodisc; 
jrst ptpxit 

hrrz taci.ptpadr; 
pushj pdp.cks12; 
ado tac1, ptpadr 

HLLM TAC,e>TACi; 
JRST PTPB1 



C(PTPCTR) :=C(PTPCTR)-1. 

;yes 
;dat:=output item 

mode=image? 
;yes 

NO, INSERT EIGHTH HOLE 

NULL? 

YES 

PTPCHA:=OUTPUT ITEM 



PUNCH FEED 

COUNT FEED LINES 
PTPFED:s0 

ptpios:=c( ios) 
;restore ios 

; DISMISS 



IS C(PTPCTR)<1 



IODISC:=l 



TACi:=BUFFER ADDRESS 
TAC:=CALCULATE CHECKSUM 

STORE CHECKSUM IN LEFT HALF OF FIRST BU 
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000167 260140 000000 

000170 254000 000222' 

000171 602000 000040 

000172 254000 000222' 

000173 623000 000001 

000174 260140 000000 

000175 621000 000004 

000176 200040 000164' 

000177 350000 000001 

000200 542040 000140' 

000201 550220 000001 

000202 135100 000215' 

000203 260140 000000 

000204 202200 000136' 

000205 322200 000167' 

000206 603000 004000 

000207 254000 00016?' 

000210 607000 002000 

000211 254000 000136' 

000212 350000 000200' 

000213 370000 000204' 

000214 254000 000113' 

000215 300600 000212' 

000216 201240 000377 

000217 202240 000152' 

000220 661000 020000 

000221 254000 000227' 

000222 260140 000004' 

000223 620000 010000 

000224 661000 000004 

000225 623000 000001 

000226 260140 000174' 

000227 202000 000155' 
000230 254000 000000 



THERE ARE MO ERRORS 
PROGRAM BREAK IS 000231 



02060 

02070 

02080 PTPADV: 

02090 

02100 

02110 

02120 

02130 

02140 PTP9: 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 PTP91: 

02320 

02330 PTPPi: 

02340 

02350 

02360 

02370 

02380 PTPDSC: 

02390 

02400 

02410 

02420 

02430 

02440 PTPXIT: 

02450 

02460 

02470 END. 



PUSHJ PDP.ADVBFE; 
JRST PTPDSC; 
TRNE IOS,IOCON; 
JRST PTPDSC? 
TLZE IOS, IOW8 

pushj pdp.setiod; 
tlz IOS.IOESTJ 
MOVE TACPTPADR 
AOS TAC 

HRRM TACPTPPTRJ 
HRRZ ITEM.PTACJ 
LDB TAC1.PTP91 
PUSHJ PDP, ITMCTl; 
MOVEM ITEM,PTPCTR; 
JUMPE ITEM, PTPADV 
TLNE IOS.PTPBINJ 
JRST PTPBNJ 
TLNN IOS.PTPIB 
JRST PTP1 
AOS PTPPTR 
SOS PTPCTR 
JRST PTPB1 

POINT 6, PTPPTR, 11 

MOVEI dat.rubout; 

MOVEM DAT,PTPCHA 
TLO IOS.PTPEOLJ 
JRST PTPXIT 

PUSHJ PDP.PTPREL 
TRZ IOS.IOACTJ 
TLO IOS.IOFST; 
TLZE IOS,IOW; 

pushj pdp.setiod; 

movem ios.ptpios; 
jrst ptpretj 



ADVANCE BUFFER 

EXITl. NEXT BUFFER EMPTY 

CONTINUOUS? (iOCONsl?) 

YES 

IN A WAIT? IOW:=0 

YES. IOWS:=l 

IOFST:=0 



PTPPTRl8-35:=C(PTPADRl8-35)+l 
ITEM:=WORD COUNT 

;PICK UP BYTE SIZE 
ITEM:=WORD C0UNT«C36/BYTE SIZE] 
PTPCTR:sC( ITEM) 
; IS ITEM COUNT=0? 

BINARY PUNCH MODE? 
YES 
} IMAGE BINARY? 



JYES 



PTPCHAJ=RUBOUT 
PTPEOLS=l 



JCLEAR PTP CONTROL REG AND CONSO BITS 
IOACT:s0 

IOFST:=l 

IN A WAIT? IOW:s0 

YES, IOWS:=l 

PTPIOS!=C( IOS) 
NO 
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A 

AC1 

AC2 

AC3 

ADVBFE 

AL 

ASSCON 

ASSPRG 

8 

BUFPNT 

RUFWRD 

CKS12 

CLOSB 

CLSIN 

CLSOUT 



DAT 

OCL 

DCW 

DDI 

DDO 

DDTMEM 

ODTSYM 

HEN 

DEVAOR 

OEVBUE 

DEVCHR 

DEVCTR 

OEVDAT 

DEVIAD 

DEVIOS 

OEVLOG 

OEVMOD 

OEVNAM 

DEVOAD 

DEVPTR 

DEVSER 

OGF 

DIN 

DLK 

DOU 

DR 

DRL 

DSI 

DSO 

DTW 

DVAVAL 

DVCDR 

DVDIR 

DVDIRI 

DVIN 

DVLPT 

DVMTA 

DVOUT 

DVTTY 



000000 


INT 


000015 


INT 


000016 


INT 


000017 


INT 


000167' 


EXT 


000001 


INT 


400000 


INT 


200000 


INT 


000014 


INT 


000012 


TNT 


000013 


INT 


000163' 


EXT 


002000 


INT 


000002 


INT 


000001 


TNT 


000017 


INT 


000005 


INT 


000001 


INT 


020000 


INT 


000007 


TNT 


000006 


INT 


000037 


INT 


000036 


INT 


000004 


INT 


000007 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


000006 


INT 


000007 


INT 


000002 


INT 


000005 


INT 


000004 


INT 


000000 


INT 


000010 


INT 


000010 


TNT 


000003 


INT 


000012 


INT 


000003 


INT 


000005 


TNT 


000002 


INT 


000016 


INT 


000000 


INT 


000011 


INT 


000010 


INT 


040000 


INT 


000040 


INT 


100000 


INT 


000004 


INT 


400000 


TNT 


000002 


TNT 


040000 


INT 


000020 


INT 


000001 


INT 


000010 


INT 
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FNTRB 


020000 


INT 


FORMFD 


000214 




HORTAB 


000211 




I 


000010 


INT 


IB 


000013 


INT 


IBUFB 


200000 


INT 


ILL INP 


000003* 


FXT 


INITB 


400000 


INT 


INPB 


010000 


INT 


10 


000020 


INT 


IOACT 


010000 


INT 


IOBEG 


000002 


INT 


IOBKTL 


040000 


INT 


IOCON 


000040 


INT 


IODEND 


020000 


INT 


IODERR 


200000 


TNT 


IODISC 


400000 


INT 


IOnONE 


400000 


INT 


IODTFR 


100000 


INT 


IOFND 


000040 


INT 


IOFST 


000004 


INT 


IOIMPM 


400000 


INT 


IONRCK 


000100 


INT 


IOROFL 


000100 


INT 


IORET 


000020 


TNT 


IOS 


000000 


INT 


IOSET 


000063' 


FXT 


IOSTRT 


000010 


INT 


IOUSF 


400000 


INT 


IOW 


000001 


INT 


IOWC 


000020 


INT 


IOWS 


400000 


INT 


ITFM 


000004 


TNT 


ITMCT1 


000203' 


FXT 


JBFADR 


000000 


INT 


JBFCTR 


000002 


INT 


JBFPTR 


000001 


INT 


JBUF 


000005 


INT 


JDAT 


000011 


TNT 


JERR 


002000 


INT 


JIOW 


100000 


INT 


JNA 


004000 


INT 


LOOKR 


040000 


INT 


MTW 


010000 


INT 


NULL 


000200 




OBUFR 


100000 


INT 


OUT 


000007' 


FXT 


OUTPR 


004000 


INT 


PDP 


000003 


INT 


PICHN 


000100 


INT 


PIOMOD 


000141' 


FXT 


PROG 


000007 


INT 


PTP1 


000136' 




PTP3 


000121' 




PTP5 


000160' 
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SYMROL TABLE 

PTP6 

PTP9 

PTP91 

PTPADR 

PTPADV 

PTPB0 

PTPB1 

PTPBIN 

PTPBN 

PTPBUF 

PTPCHA 

PTPCHL 

PTPCHN 

PTPCHR 

PTPCLS 

PTPCNT 

PTPCTR 

PTPDAT 

PTPDB 

PTPDON 

PTPDSC 

PTPDSP 

PTPEOL 

PTPFDN 

PTPFED 

PTPIR 

PTPIN1 

PTPIN2 

PTPINI 

PTPINT 

PTPIOS 

PTPMOD 

PTPOUT 

PTPP1 

PTPPTR 

PTPREL 

PTPRET 

PTPS2 

PTPSAV 

PTPSFQ 

PTPSFR 

PTPSIO 

PTPSSQ 

PTPXIT 

RUROUT 

RUN 

RUNABL 

SETBYT 

SETIOD 

TAC 

TAC1 

TEM 

TTYATC 

TTYUSE 

USRMOD 



E PUNCH 


SERVICE ROUTINE 


000147' 




000175* 




000215' 




000176' 


EXT 


000167' 




000073' 




000113' 




004000 




000162' 




000000 


EXT 


000217' 


EXT 


000157' 


FXT 


000033' 


EXT 


000000 


EXT 


000007' 




000153' 


EXT 


000213* 


FXT 


000062' 


FXT 


000000 


EXT 


000010 




000222* 




000000' 


INT 


020000 




000200 




200000 




002000 




000026' 




000036' 




000004* 


INT 


000052' 


INT 


000227' 


EXT 


000000 


EXT 


000024' 




000216* 




000215' 


FXT 


000004' 




000230' 


FXT 


000151' 




000061' 


EXT 


010000 




000000 


EXT 


000156' 


FXT 


040000 




000227' 




000377 




200000 


INT 


204000 


INT 


000047' 


FXT 


000226* 


FXT 


000001 


INT 


000002 


INT 


000010 


INT 


020000 


INT 


010000 


INT 


010000 


INT 
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uuo 

VERTAB 
HAITI 



000014 INT 
000213 
000023' EXT 



ENO OF ASSEMBLY 



